home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 65.zip / BS1 part 65 / Art Department Pro 2.15 d2.adf / RXProgs.lzh / ReDPI.adpro < prev    next >
Text File  |  1992-03-10  |  422b  |  26 lines
  1. /*  
  2.     This program calls ZapDPI and forcibly changes dpi chunks to DPI.
  3. */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. ADDRESS "ADPro"
  8.  
  9. NL = '0A'X
  10.  
  11. GETFILES '"Select IFF files to UnZap:"'
  12. IF RC ~= 0 THEN DO
  13.    /* No selection */
  14.    EXIT
  15. END
  16.  
  17. LIST = ADPRO_RESULT
  18. COUNT = WORDS(ADPRO_RESULT)
  19. I = 1
  20.  
  21. DO WHILE (I <= COUNT)
  22.     ADDRESS COMMAND "ZAPDPI -DPI" WORD(LIST,I)
  23.     IF RC ~= 0  THEN OKAY1 "Error while changing:" || NL || WORD(LIST,I)
  24.     I = I + 1
  25. END
  26.